0 POKE53280,0:POKE53281,0:PRINT"[147]";:CLR
1 DATA"STARTADRESSE:","ENDADRESSE  :","STARTZEILE  :","SCHRITTWEITE:":FORI=1TO4
2 READA$:PRINT"[154]"A$:NEXT:PRINT"";:FORI=1TO4:PRINT"";:POKE19,1
3 INPUTA(I):PRINT:NEXT:POKE19,0:PRINT"[147]";:D=0:IFA(1)>A(2)ORA(3)<11THENRUN
4 PRINTA(3)"D[193]";:A(3)=A(3)+A(4):FORI=1TO17:R=PEEK(A(1)):A(1)=A(1)+1
5 PRINTMID$(STR$(R),2,5)+",";:IFA(1)=A(2)+1THENPRINT"[157] ":PRINT"G[207]10":GOTO9
6 NEXT:PRINT"[157] ":D=D+1:IFD=8THENGOTO8
7 GOTO4
8 FORI=1TO4:PRINT":A(";I;")=";A(I);:NEXTI:PRINT":?C[200](147);:G[207]4":POKE198,0
9 POKE631,19:FORI=632TO640:POKEI,13:NEXT:POKE198,12:END
10 PRINT"[147]P[207]43,234:P[207]44,9:LIST":GOTO9